Những câu hỏi liên quan
39 _ 7G1_ Trương Uyển Uy...
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2022 lúc 0:12

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

Bình luận (1)
Tiến
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:03

uses crt;

var i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

inc(dem);

write(i:4);

if dem=15 then writeln;

end;

readln;

end.

Bình luận (2)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

Bình luận (0)
Sơn Tùng MTP
Xem chi tiết
Hồ Thị Linh Chi
Xem chi tiết
The8BitImage
4 tháng 5 2019 lúc 20:32

mình cố gắng giải cho bạn, bạn xem có đúng ko

Hỏi đáp Tin học

Bình luận (7)
The8BitImage
4 tháng 5 2019 lúc 20:58

Mình gửi lại cho bạn Mình xin lỗi vì đã làm thiếu

s phải là real nha

vì nhân lên nó có giá trị cao hơn integer nên phải chọn real

Bài 5. Từ bài toán đến chương trình

Bình luận (5)
The8BitImage
4 tháng 5 2019 lúc 21:21

Mình sửa lại đây

Bài 5. Từ bài toán đến chương trình

Bình luận (2)
Cao Ngọc Bảo Quyên
Xem chi tiết
Nhân lê
Xem chi tiết
Phía sau một cô gái
22 tháng 4 2023 lúc 20:43

program TongSoChanTrongDay;

var

      n, i, tong: integer;

      a: array[1..100] of integer;

begin

      tong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

                  tong := tong + a[i];

      end;

      writeln('Tong cac phan tu chan trong day la: ', tong);

      readln;

end.

Bình luận (0)
Cá Viên Chiên
Xem chi tiết
Trần Minh Tâm
1 tháng 4 2021 lúc 21:30

program tongchan;

uses crt;

var i,n,s:integer;

     a:array[1..50] of integer;

Begin

Write('n=');readln(n);

for i:=1 to n do

Write('a[,'i',]=');readln(a[i]);

s:=0;

for i:=1 to n do 

if a[i] mod 2 = 0 then s:=s+a[i];

if s=0 then write('Trong mang ko co so chan') else write('Tong cac so chan la:,s');

readln;

end.

Bình luận (1)
Nguyễn Lê Phước Thịnh
1 tháng 4 2021 lúc 22:42

uses crt;

var a:array[1..100]of integer;

i,n,t,t1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

 begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t1:=t1+a[i];

writeln('Tong cac so la: ',t);

writeln('Tong cac so chan la: ',t1);

readln;

end.

Bình luận (0)
NgocTuan
Xem chi tiết
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:11

program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac so le nho hon hoac bang ',n,'la :');
   for i:=1 to n do if i mod 2 = 1 then write(i:4);
   readln
end.

Bình luận (0)
NT Phú
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 15:12

1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

s=s+i*i;

cout<<s;

return 0;

}

Bình luận (0)